home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtext.dxr / 00007_Text & List Code.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  3.1 KB  |  145 lines
  1. global gDBTextVarList
  2.  
  3. on TextCopy
  4.   copyToClipBoard(member("texthold f"))
  5. end
  6.  
  7. on EvalKeyPressed
  8.   if IsKeyBoardEquivalentDown() then
  9.     MyObj = getaProp(gDBTextVarList, GetObjProp())
  10.     case the key of
  11.       "c":
  12.         TextCopy()
  13.       "p":
  14.         print(MyObj)
  15.       "s":
  16.         save(MyObj)
  17.     end case
  18.   end if
  19. end
  20.  
  21. on MakePlatformFileName xText
  22.   xText = RemoveReturns(xText)
  23.   xText = RemovePathDelimiters(xText)
  24.   if the machineType = 256 then
  25.     legalChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890"
  26.     MaxCount = length(xText)
  27.     repeat with rc = 1 to MaxCount
  28.       if not (legalChars contains char rc of xText) then
  29.         put " " into char rc of xText
  30.       end if
  31.     end repeat
  32.     repeat while xText contains " "
  33.       CharNum = offset(" ", xText)
  34.       if CharNum > 0 then
  35.         delete char CharNum of xText
  36.       end if
  37.     end repeat
  38.     return char 1 to 8 of xText
  39.   else
  40.     return xText
  41.   end if
  42. end
  43.  
  44. on SetFieldProps xMember
  45.   set the textFont of member xMember to GetFont()
  46.   set the textSize of member xMember to 12
  47. end
  48.  
  49. on GetScrollSettingAdjustment
  50.   if the machineType = 256 then
  51.     return 0
  52.   else
  53.     return 1
  54.   end if
  55. end
  56.  
  57. on GetRectHeight xRect
  58.   return getAt(xRect, 4) - getAt(xRect, 2)
  59. end
  60.  
  61. on RemoveBlankLines xText
  62.   ReturnString = xText
  63.   LineMax = the number of lines in ReturnString
  64.   repeat with rc = LineMax down to 1
  65.     LineText = line rc of ReturnString
  66.     if (LineText = EMPTY) or (LineText = " ") then
  67.       delete line rc of ReturnString
  68.       LineMax = the number of lines in ReturnString
  69.     end if
  70.   end repeat
  71.   return ReturnString
  72. end
  73.  
  74. on ParseLineBreak xText
  75.   repeat while xText contains "^"
  76.     Pos = offset("^", xText)
  77.     put RETURN into char Pos of xText
  78.   end repeat
  79.   return xText
  80. end
  81.  
  82. on RectToLoc xRect
  83.   l = getAt(xRect, 1)
  84.   t = getAt(xRect, 2)
  85.   R = getAt(xRect, 3)
  86.   b = getAt(xRect, 4)
  87.   xPoint = point(((R - l) / 2) + l, ((b - t) / 2) + t)
  88.   return xPoint
  89. end
  90.  
  91. on CreateLookUpList paramList
  92.   list = []
  93.   repeat with rc in paramList
  94.     append(list, getPos(paramList, rc))
  95.   end repeat
  96.   return list
  97. end
  98.  
  99. on LineItemCount xText
  100.   storeDelimiter = the itemDelimiter
  101.   the itemDelimiter = TAB
  102.   xNumber = the number of items in xText
  103.   the itemDelimiter = storeDelimiter
  104.   return xNumber
  105. end
  106.  
  107. on BlankLine xText
  108.   return (xText = EMPTY) or (xText = " ")
  109. end
  110.  
  111. on RemovePathDelimiters xText
  112.   if the machineType = 256 then
  113.     delimiter = "\"
  114.   else
  115.     delimiter = ":"
  116.   end if
  117.   repeat while xText contains delimiter
  118.     CharNum = offset(delimiter, xText)
  119.     if CharNum > 0 then
  120.       delete char CharNum of xText
  121.     end if
  122.   end repeat
  123.   return xText
  124. end
  125.  
  126. on RemoveSpaces xText
  127.   ReturnString = xText
  128.   repeat while ReturnString contains " "
  129.     SpaceLoc = offset(" ", ReturnString)
  130.     delete char SpaceLoc of ReturnString
  131.   end repeat
  132.   return ReturnString
  133. end
  134.  
  135. on DelBorderSpaces xText
  136.   ReturnString = xText
  137.   repeat while char 1 of ReturnString = " "
  138.     delete char 1 of ReturnString
  139.   end repeat
  140.   repeat while char length(ReturnString) of ReturnString = " "
  141.     delete char length(ReturnString) of ReturnString
  142.   end repeat
  143.   return ReturnString
  144. end
  145.